home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 21 / Cream of the Crop 21 (Terry Blount) (October 1996).iso / comm / nt16322.zip / cisppp.tx_ / cisppp.tx
Text File  |  1995-09-04  |  2KB  |  41 lines
  1. # Script to Login to Internet Provider (CompuServe)
  2. count 5
  3. loop:
  4.     if !count
  5.         hangup
  6.         display "^M^JAborting Script, Maximum count exceeded^M^J"
  7.         abort
  8.     endif
  9.     expect 10 "CONNECT"
  10.     if !expect
  11.         hangup
  12.         redial
  13.         goto loop
  14.     endif
  15. output "^M"
  16. expect 15 "Host Name:"
  17. output "CIS^M"
  18. expect 15 "USER ID:"
  19. output "72060,2331/GO:PPPCONNECT^M"
  20. expect 15 "Password:"
  21. output "xxxxxx.xxxxx^M"
  22. expect 15 "PPP Connection"
  23.  
  24. save "slip-port=^A"                "Trumpet Winsock" c:\winapp\internet\trumpet\trumpwsk.ini
  25. save "slip-baudrate=^S"            "Trumpet Winsock" c:\winapp\internet\trumpet\trumpwsk.ini
  26. save "netmask=0.0.0.0"             "Trumpet Winsock" c:\winapp\internet\trumpet\trumpwsk.ini
  27. save "gateway=0.0.0.0"             "Trumpet Winsock" c:\winapp\internet\trumpet\trumpwsk.ini
  28. save "dns=198.4.7.1 198.4.9.1"     "Trumpet Winsock" c:\winapp\internet\trumpet\trumpwsk.ini
  29. save "domain=compuserve.com"       "Trumpet Winsock" c:\winapp\internet\trumpet\trumpwsk.ini
  30. save "slip-enabled=1"              "Trumpet Winsock" c:\winapp\internet\trumpet\trumpwsk.ini
  31. save "slip-handshake=1"            "Trumpet Winsock" c:\winapp\internet\trumpet\trumpwsk.ini
  32. save "slip-compressed=0"           "Trumpet Winsock" c:\winapp\internet\trumpet\trumpwsk.ini
  33. save "ppp-enabled=1"               "Trumpet Winsock" c:\winapp\internet\trumpet\trumpwsk.ini
  34. save "mtu=1500"                    "Trumpet Winsock" c:\winapp\internet\trumpet\trumpwsk.ini
  35. save "dial-option=0"               "Trumpet Winsock" c:\winapp\internet\trumpet\trumpwsk.ini
  36.  
  37. display "^J^MStarting tcpman.exe^J^M"
  38. show 2
  39. exec \winapp\internet\trumpet\tcpman.exe
  40. online
  41.